Peer-graded Assignment: R Markdown Presentation & Plotly

Loading data of the quarterly data of the Number of Australian Residents

require(plotly)
## Loading required package: plotly
## Loading required package: ggplot2
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
data <- austres
plot_ly(x= time(data), y = data, type = "bar") %>% layout(title = "Number of Australian Residents")